home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / M2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-04-15  |  384 b   |  22 lines
  1. 0  CLS:PRINT
  2. 10   PRINT "PRIME FACTORS OF INTEGERS"
  3. 20   PRINT 
  4. 30   PRINT "(ENTER 0 TO END PROGRAM)"
  5. 40   PRINT "NUMBER";
  6. 50   INPUT Z
  7. 60   IF Z = 0 THEN 200
  8. 70   PRINT  SGN (Z)
  9. 80  Z =  ABS (Z)
  10. 90   FOR I = 2 TO SQR (Z)
  11. 100  S = 0
  12. 110   IF Z / I <  >  INT (Z / I) THEN 150
  13. 120  Z = Z / I
  14. 130  S = S + 1
  15. 140   GOTO 110
  16. 150   IF S = 0 THEN 170
  17. 160   PRINT I;"^";S
  18. 170   NEXT I
  19. 180   PRINT 
  20. 190   GOTO 40
  21. 200   RUN "MATH"
  22.